CDUTIL 13/CDUTIL #13 Julio 1995.iso/windows/amipro3/macros.cmz/TYPECHAR.SMM

INI File | 1992-11-18 | 24.2 KB | 1,733 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Inserta caracteres especiales en el documento.
    Lotus Word Processing Division
    Intermediate
    OnKey, MenuItems
    AutoRun
    719602761
    27
    679901472
    188
    7
    1205
    7618
    23
    26






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Est<\a>ndar
    3
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        24
        1
        2
        ,
        .
        Pts
    Est<\a>ndar
    0
    0
[tag]
    Body Single
    5
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Bullet
    6
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*0>
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Bullet
    0
    0
[tag]
    Bullet 1
    7
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        288
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*5>
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 1
    0
    0
[tag]
    Number List
    8
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        360
        360
        360
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>.
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Number List
    0
    0
[tag]
    Subhead
    9
    [fnt]
        TimesNewRomanPS
        240
        0
        49155
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        72
        72
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Subhead
    0
    0
[tag]
    Title
    11
    [fnt]
        Arial MT
        360
        0
        16385
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        446
        1
        144
        72
        1
        100
    [brk]
        16
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Title
    0
    0
[lay]
    1
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        0
        0
        0
        0
        1
        1
        1440
        10800
        13
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
        1
        9360
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        3
    [frmlay]
        1440
        12240
        1
        1440
        0
        1
        360
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        4
    [frmlay]
        15840
        12240
        1
        1440
        360
        1
        14400
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    7
    48 0 16 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    97 0 26 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    141 0 12 0 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    187 0 23 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    233 0 22 0 1 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    279 0 13 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    290 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#293,9025>FUNCTION ANSICharacters()

<:#284,9025>ONERROR toast

<:#284,9025>ONCANCEL toast

<:#284,9025>IgnoreKeyboard(1)

<:#284,9025>DECLARE AddtoMenu(hdlg, id, text)

<:#284,9025>DECLARE AddShortcuts(hdlg, id, text)

<:#284,9025>DECLARE ClearMenu(hdlg, id, text)

<:#284,9025>DECLARE ClearShortcuts(hdlg, id, text)

<:#284,9025>DECLARE GenerateMenu()

<:#284,9025>DECLARE InsertChar(x)

<:#284,9025>DECLARE Replaceit(x)

<:#284,9025>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")

<:#284,9025>define SetWindowText()        DllCall("user,SetWindowText,IHC", %1, %2)

<:#284,9025>define TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)

<:#568,9025>define GetWindowText()        DllCall("user,GetWindowText,HHFH", %1, %2, %3)

<:#284,9025>StatusBarMsg("Se est<\a> incluyendo Cars en la barra de men<\z>s de Ami Pro")

<:#284,9025>GenerateMenu()

<:#284,9025>toast:

<:#284,9025>StatusBarMsg("")

<:#284,9025>'TitleBarMsg("Ami Pro")

<:#284,9025>HourGlass(0)

<:#284,9025>StatusBarMsg("")

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION ShowBox()

<:#284,9025>ONERROR toast

<:#284,9025>ONCANCEL toast

<:#284,9025>IgnoreKeyboard(1)

<:#284,9025>HourGlass(1)

<:#284,9025>StatusBarMsg("Se est<\a>n recopilando los caracteres ANSI...")

<:#284,9025>MacName = GetRunningMacroFile$()

<:#284,9025>DIM Chars(256)

<:#284,9025>FOR I = 161 to 214

<:#284,9025>    Chars(I) = CHR$(I)

<:#284,9025>NEXT

<:#284,9025>FOR I = 216 to 246

<:#284,9025>    Chars(I) = CHR$(I)

<:#284,9025>NEXT

<:#284,9025>FOR I = 248 to 254

<:#284,9025>    Chars(I) = CHR$(I)

<:#284,9025>NEXT

<:#284,9025>Chars(255) = "<\>"

<:#284,9025>again:

<:#284,9025>HourGlass(1)

<:#284,9025>FillEdit(9000, &Chars)

<:#284,9025>HourGlass(0)

<:#284,9025>StatusBarMsg("")

<:#284,9025>SetDlgCallBack(53, "{MacName}!InsertaChar")

<:#284,9025>SetDlgCallBack(54, "{MacName}!AddtoMenu")

<:#284,9025>SetDlgCallBack(55, "{MacName}!ClearMenu")

<:#284,9025>SetDlgCallBack(57, "{MacName}!AddShortcuts")

<:#284,9025>Box = DialogBox(".", "ANSIBox")

<:#284,9025>x = GetDialogField$(9000)

<:#284,9025>IF Box = -1

<:#284,9025>    Message("No se puede abrir el recuadro de di<\a>logo. Fin de la macro.")

<:#284,9025>    GoTo toast

<:#284,9025>ELSEIF Box = 0

<:#284,9025>    GoTo toast

<:#284,9025>ELSEIF Box = 6

<:#284,9025>    Replaceit(x)

<:#284,9025>    GoTo again

<:#284,9025>ELSE

<:#284,9025>    InsertChar(x)

<:#284,9025>ENDIF

<:#284,9025>toast:

<:#284,9025>HourGlass(0)

<:#284,9025>StatusBarMsg("")

<:#284,9025>IgnoreKeyboard(0)

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION InsertaChar(hdlg, id, text)

<:#284,9025>ONCANCEL toast

<:#284,9025>ONERROR toast

<:#284,9025>IgnoreKeyboard(1)

<:#284,9025>x = GetDlgItemText(hdlg, 9000)

<:#284,9025>InsertChar(x)

<:#284,9025>toast:

<:#284,9025>HourGlass(0)

<:#284,9025>StatusBarMsg("")

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION AddShortcuts(hdlg, id, text)

<:#284,9025>MacFile = GetRunningMacroFile$()

<:#284,9025>x = GetDlgItemText(hdlg, 9000)

<:#284,9025>FillEdit(8001, "Asigne las teclas r<\a>pidas a {x}.")

<:#284,9025>SetDlgCallBack(53, "{MacFile}!ClearShortcuts")

<:#284,9025>ShortcutBox = DialogBox(".", "ShortcutBox")

<:#284,9025>IF ShortcutBox = -1

<:#284,9025>    Message("No se puede abrir el recuadro de di<\a>logo. Fin de la funci<\s>n.")

<:#284,9025>    EXIT FUNCTION

<:#284,9025>ELSEIF ShortcutBox = 0

<:#284,9025>    Return (-1)

<:#284,9025>ENDIF

<:#284,9025>Ctrl = GetDialogField$(50)

<:#284,9025>Alt = GetDialogField$(51)

<:#284,9025>Shift = GetDialogField$(52)

<:#284,9025>Key = UCASE$(GetDialogField$(8000))

<:#284,9025>IF len(Key) <;> 1

<:#284,9025>    Message("S<\s>lo se utilizar<\a> el primer car<\a>cter de la cadena ""{Key}"".")

<:#284,9025>    Key = Left$(Key, 1)

<:#284,9025>ENDIF

<:#284,9025>used = FALSE

<:#284,9025>NumShortcuts = GetProfileString$("ANSIx", "NumShortcuts", "AMIPRO2.INI")

<:#284,9025>IF NumShortcuts <;>0 OR NumShortcuts != ""

<:#284,9025>    FOR I = 1 to NumShortcuts

<:#284,9025>        Shortcut = GetProfileString$("ANSIx", "Shortcut{I}", "AMIPRO2.INI")

<:#284,9025>        y = strfield$(Shortcut, 2, "</p>")

<:#284,9025>        Shortcut = strfield$(Shortcut, 1, "</p>")

<:#284,9025>        IF Shortcut = "{Key}{Ctrl}{Alt}{Shift}"

<:#284,9025>            used = TRUE

<:#568,9025>            IF Decide("Estas teclas r<\a>pidas est<\a>n asignadas a {y}. </>Desea reemplazarlas?")

<:#568,9025>                WriteProfileString("ANSIx", "Shortcut{I}", "{Key}</p>{Ctrl}</p>{Alt}</p>{Shift}</p>{x}", "AMIPRO2.INI")

<:#284,9025>            ELSE

<:#284,9025>                NumShortcuts = NumShortcuts + 1

<:#568,9025>                WriteProfileString("ANSIx", "NumShortcuts", NumShortcuts, "AMIPRO2.INI")

<:#568,9025>                WriteProfileString("ANSIx", "Shortcut{NumShortcuts}", "{Key}</p>{Ctrl}</p>{Alt}</p>{Shift}</p>{x}", "AMIPRO2.INI")

<:#284,9025>            ENDIF

<:#284,9025>        ENDIF

<:#284,9025>    NEXT

<:#284,9025>ELSE

<:#284,9025>    NumShortcuts = 0

<:#284,9025>ENDIF

<:#284,9025>IF not used

<:#284,9025>    NumShortcuts = NumShortcuts + 1

<:#284,9025>    WriteProfileString("ANSIx", "NumShortcuts", NumShortcuts, "AMIPRO2.INI")

<:#568,9025>            WriteProfileString("ANSIx", "Shortcut{NumShortcuts}", "{Key}</p>{Ctrl}</p>{Alt}</p>{Shift}</p>{x}", "AMIPRO2.INI")

<:#284,9025>ENDIF

<:#284,9025>Message("Se han guardado las teclas r<\a>pidas.")

<:#284,9025>GenerateMenu()

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION ClearMenu(hdlg, id, text)

<:#284,9025>IF Decide("Se borrar<\a>n TODAS las opciones del men<\z>. </>Desea continuar?")

<:#284,9025>    WriteProfileString("ANSIx", "NumMenuItems", "", "AMIPRO2.INI")

<:#284,9025>    GenerateMenu()

<:#284,9025>ENDIF

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION Replaceit(x)

<:#284,9025>Ready:

<:#284,9025>y = CurShade$()

<:#284,9025>IF y != ""

<:#284,9025>    IF Decide("</>Desea sustituir {y} por {x} SIEMPRE que aparece?")

<:#284,9025>        Flag = ReplaceAll + FindFromPage1

<:#284,9025>        TYPE("<[>Left]")

<:#284,9025>        Replace(0, 0, Flag, "{y}", "{x}")

<:#284,9025>    ELSE

<:#284,9025>        InsertChar(x)

<:#284,9025>    ENDIF

<:#284,9025>ELSE

<:#284,9025>    UserControl("Seleccione lo que desee sustituir por {x}.")

<:#284,9025>    GoTo ready

<:#284,9025>ENDIF

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION AddtoMenu(hdlg, id, text)

<:#284,9025>x = GetDlgItemText(hdlg, 9000)

<:#284,9025>NumMenuItems = GetProfileString$("ANSIx", "NumMenuItems", "AMIPRO2.INI")

<:#284,9025>IF NumMenuItems <;> 0 OR NumMenuItems != ""

<:#284,9025>    FOR I = 1 to NumMenuItems

<:#284,9025>        MenuItem = GetProfileString$("ANSIx", "MenuItem{I}", "AMIPRO2.INI")

<:#284,9025>        IF MenuItem = x

<:#568,9025>            IF not Decide("Este s<\m>mbolo ya est<\a> en el men<\z>. </>Desea continuar?")

<:#284,9025>                EXIT FUNCTION

<:#284,9025>            ENDIF

<:#284,9025>        ENDIF

<:#284,9025>    NEXT

<:#284,9025>ELSE

<:#284,9025>    DIM MenuItems(1)

<:#284,9025>    NumMenuItems = 0

<:#284,9025>    I = 1

<:#284,9025>ENDIF

<:#568,9025>WriteProfileString("ANSIx", "NumMenuItems", (NumMenuItems + 1), "AMIPRO2.INI")

<:#284,9025>WriteProfileString("ANSIx", "MenuItem{I}", "{x}", "AMIPRO2.INI")

<:#284,9025>GenerateMenu()

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION ExitMacro()

<:#284,9025>MenuName = "&Cars"

<:#284,9025>DeleteMenu(1, MenuName)

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION GenerateMenu()

<:#284,9025>MacName = GetRunningMacroFile$()

<:#284,9025>MenuName = "&Cars"

<:#284,9025>NumShortcuts = GetProfileString$("ANSIx", "NumShortcuts", "AMIPRO2.INI")

<:#284,9025>IF NumShortcuts <;> 0 OR NumShortcuts != ""

<:#284,9025>    FOR I = 1 to NumShortcuts

<:#284,9025>        SC = GetProfileString$("ANSIx", "Shortcut{I}", "AMIPRO2.INI")

<:#284,9025>        Key = strfield$(SC, 1, "</p>")

<:#284,9025>        Key = ASC(Key)

<:#284,9025>        Ctrl = strfield$(SC, 2, "</p>")

<:#284,9025>        Alt = strfield$(SC, 3, "</p>")

<:#284,9025>        Shift = strfield$(SC, 4, "</p>")

<:#284,9025>        Char = strfield$(SC, 5, "</p>")

<:#284,9025>        IF Ctrl

<:#284,9025>            Key = Key | 0x4000

<:#284,9025>        ENDIF

<:#284,9025>        IF Alt

<:#284,9025>            Key = Key | 0x2000

<:#284,9025>        ENDIF

<:#284,9025>        IF Shift

<:#284,9025>            Key = Key | 0x1000

<:#284,9025>        ENDIF

<:#284,9025>        OnKey(Key, 0, "{MacName}!InsertChar({Char})")

<:#284,9025>    NEXT

<:#284,9025>ENDIF

<:#284,9025>DeleteMenu(1, MenuName)

<:#284,9025>AddMenu(1, MenuName)

<:#568,9025>AddMenuItem(1, MenuName, "&Seleccionar", "{MacName}!ShowBox()", "Muestra un recuadro de di<\a>logo para insertar caracteres ANSI.")

AddMenuItem(1, MenuName, "S&alir de {MenuName}", "{MacName}!ExitMacro()", "Suprime el men<\z> {MenuName}.")

<:#284,9025>NumMenuItems = GetProfileString$("ANSIx", "NumMenuItems", "AMIPRO2.INI")

<:#284,9025>IF NumMenuItems = "" OR NumMenuItems = 0

<:#284,9025>    EXIT FUNCTION

<:#284,9025>ENDIF

<:#284,9025>AddMenuItem(1, MenuName, "-", "")

<:#284,9025>DIM MenuItems(NumMenuItems)

<:#284,9025>FOR I = 1 to NumMenuItems

<:#284,9025>    MI = GetProfileString$("ANSIx", "MenuItem{I}", "AMIPRO2.INI")

<:#568,9025>    AddMenuItem(1, MenuName, "&{I}    {MI}", "{MacName}!InsertChar({MI})", "Inserta el car<\a>cter {MI} en la posici<\s>n actual.")

<:#284,9025>NEXT

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION InsertChar(x)

<:#284,9025>    TYPE(x)

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>FUNCTION ClearShortcuts(hdlg, id, text)

<:#568,9025>IF Decide("Se suprimir<\a>n TODAS las teclas r<\a>pidas asignadas a caracteres ANSI.
</>Desea continuar?")

<:#284,9025>    NumShortcuts = GetProfileString$("ANSIx", "NumShortcuts", "AMIPRO2.INI")

<:#284,9025>    FOR I = 1 to NumShortcuts

<:#284,9025>        SC = GetProfileString$("ANSIx", "Shortcut{I}", "AMIPRO2.INI")

<:#284,9025>        Key = strfield$(SC, 1, "</p>")

<:#284,9025>        Ctrl = strfield$(SC, 2, "</p>")

<:#284,9025>        Alt = strfield$(SC, 3, "</p>")

<:#284,9025>        Shift = strfield$(SC, 4, "</p>")

<:#284,9025>        Char = strfield$(SC, 5, "</p>")

<:#284,9025>        IF Ctrl

<:#284,9025>            Key = Key | 0x4000

<:#284,9025>        ENDIF

<:#284,9025>        IF Alt

<:#284,9025>            Key = Key | 0x2000

<:#284,9025>        ENDIF

<:#284,9025>        IF Shift

<:#284,9025>            Key = Key | 0x1000

<:#284,9025>        ENDIF

<:#284,9025>        OnKey(Key, 0, "")

<:#284,9025>    NEXT

<:#284,9025>    WriteProfileString("ANSIx", "NumShortcuts", "", "AMIPRO2.INI")

<:#284,9025>ENDIF

@Function@<:#293,9025>END FUNCTION

<:#284,9025>

<:#284,9025>

@Function@<:#293,9025>DIALOG ANSIBox

<:#284,9025>-2134376448 8 134 38 94 176 "" "" "Caracteres ANSI"

<:#284,9025>FONT 8 "Helv"

<:#284,9025>4 4 22 166 9000 1352859651 "listbox" "" 0

<:#284,9025>50 4 40 14 1 1342373889 "button" "Aceptar" 0

<:#284,9025>50 20 40 14 2 1342373888 "button" "Cancelar" 0

<:#284,9025>50 36 40 14 53 1342373888 "button" "&Insertar" 0

<:#284,9025>30 56 60 14 54 1342373888 "button" "&A<\q>adir al men<\z>" 0

<:#284,9025>30 72 60 14 55 1342373888 "button" "&Borrar del men<\z>" 0

<:#284,9025>30 88 60 14 6 1342373888 "button" "&Sustituir" 0

<:#284,9025>30 104 60 14 57 1342373888 "button" "&Teclas r<\a>pidas..." 0

@Function@<:#293,9025>END DIALOG

<:#284,9025>

@Function@DIALOG    ShortcutBox

<:#568,9025>-2134376448    10    118    62    171    68    ""    ""    "Asignaci<\s>n de teclas r<\a>pidas"

<:#284,9025>FONT    6    "Helv"

<:#284,9025>4    1    46    52    10    1342242823    "button"    "Base"    0

<:#284,9025>10    10    28    12    50    1342242819    "button"    "&Ctrl"    0

<:#284,9025>10    22    30    12    51    1342242819    "button"    "&Alt"    0

<:#284,9025>10    34    36    12    52    1342242819    "button"    "&May<\z>s"    0

<:#284,9025>58    17    20    8    1000    1342177280    "static"    "Tecla:"    0

<:#284,9025>82    16    30    12    8000    1350631552    "edit"    ""    0

<:#284,9025>124    4    40    14    1    1342242817    "button"    "Aceptar"    0

<:#284,9025>124    20    40    14    2    1342242816    "button"    "Cancelar"    0

<:#284,9025>124    36    40    14    53    1342242816    "button"    "&Eliminar"    0

<:#284,9025>4    56    152    8    8001    1342177281    "static"    "text"    0

END DIALOG

>

[Embedded]
00017113
>
[macsum] 13
ANSICharacters 0 0 1 0
ShowBox 182 0 6 25
InsertaChar 1247 3 2 72
AddShortcuts 1375 3 13 84
ClearMenu 2962 3 1 135
Replaceit 3144 1 3 143
AddtoMenu 3471 3 6 161
ExitMacro 4087 0 2 184
GenerateMenu 4144 0 14 190
InsertChar 5432 1 1 232
ClearShortcuts 5470 3 9 237
ANSIBox 6170 0 -1 263
ShortcutBox 6674 0 -1 276
[macse]
14 ANSICharacters
20 00000141
19 00000141
0 32 1
0 789 "Se est<\a> incluyendo Cars en la barra de men<\z>s de Ami Pro"
16 GenerateMenu
0 789 ""
0 296 0
0 789 ""
6 0
15
9
14 ShowBox
20 00001026
19 00001026
0 32 1
0 296 1
0 789 "Se est<\a>n recopilando los caracteres ANSI..."
0 802
13
8 1
5 256
21 2 [X]
5 161
8 3
5 214
6 3
18 2
12 00000233
10 00000273
5 1
6 3
3 0
8 3
10 00000156
6 3
0 39 "{3}"
13
23 2
10 00000200
5 216
8 3
5 246
6 3
18 2
12 00000362
10 00000402
5 1
6 3
3 0
8 3
10 00000285
6 3
0 39 "{3}"
13
23 2
10 00000329
5 248
8 3
5 254
6 3
18 2
12 00000491
10 00000531
5 1
6 3
3 0
8 3
10 00000414
6 3
0 39 "{3}"
13
23 2
10 00000458
5 255
7 "<\>"
23 2
0 296 1
0 31 9000 &2
0 296 0
0 789 ""
0 41 53 "{1}!InsertaChar"
0 41 54 "{1}!AddtoMenu"
0 41 55 "{1}!ClearMenu"
0 41 57 "{1}!AddShortcuts"
0 26 "." "ANSIBox"
13
8 4
0 27 9000
13
8 5
6 4
5 -1
18 0
11 00000875
0 3 "No se puede abrir el recuadro de di<\a>logo. Fin de la macro."
10 00001026
10 00001026
6 4
5 0
18 0
11 00000930
10 00001026
10 00001026
6 4
5 6
18 0
11 00001005
16 Replaceit "{5}"
10 00000554
10 00001026
16 InsertChar "{5}"
0 296 0
0 789 ""
0 32 0
6 0
15
9
14 InsertaChar
19 00000097
20 00000097
0 32 1
0 42 "{0}" 9000
13
8 4
16 InsertChar "{4}"
0 296 0
0 789 ""
6 3
15
9
14 AddShortcuts
0 802
13
8 4
0 42 "{0}" 9000
13
8 5
0 31 8001 "Asigne las teclas r<\a>pidas a {5}."
0 41 53 "{4}!ClearShortcuts"
0 26 "." "ShortcutBox"
13
8 6
6 6
5 -1
18 0
11 00000300
0 3 "No se puede abrir el recuadro de di<\a>logo. Fin de la funci<\s>n."
6 3
15
9
10 00000342
6 6
5 0
18 0
11 00000342
5 -1
15
9
0 27 50
13
8 7
0 27 51
13
8 8
0 27 52
13
8 9
0 27 8000
13
0 18 [X]
13
8 10
0 14 "{10}"
13
5 1
18 3
11 00000574
0 3 "S<\s>lo se utilizar<\a> el primer car<\a>cter de la cadena ""{10}""."
0 806 "{10}" 1
13
8 10
5 0
8 11
0 286 "ANSIx" "NumShortcuts" "AMIPRO2.INI"
13
8 12
6 12
5 0
18 3
6 12
7 ""
18 1
1 2
11 00001325
5 1
8 13
6 12
6 13
18 2
12 00000782
10 00001312
5 1
6 13
3 0
8 13
10 00000703
0 286 "ANSIx" "Shortcut{13}" "AMIPRO2.INI"
13
8 14
0 20 "{14}" 2 "</p>"
13
8 15
0 20 "{14}" 1 "</p>"
13
8 14
6 14
7 "{10}{7}{8}{9}"
18 0
11 00001299
5 1
8 11
0 2 "Estas teclas r<\a>pidas est<\a>n asignadas a {15}. </>Desea reemplazarlas?"
13
11 00001147
0 287 "ANSIx" "Shortcut{13}" "{10}</p>{7}</p>{8}</p>{9}</p>{5}" "AMIPRO2.INI"
10 00001299
6 12
5 1
3 0
8 12
0 287 "ANSIx" "NumShortcuts" "{12}" "AMIPRO2.INI"
0 287 "ANSIx" "Shortcut{12}" "{10}</p>{7}</p>{8}</p>{9}</p>{5}" "AMIPRO2.INI"
10 00000747
10 00001336
5 0
8 12
6 11
1 3
11 00001512
6 12
5 1
3 0
8 12
0 287 "ANSIx" "NumShortcuts" "{12}" "AMIPRO2.INI"
0 287 "ANSIx" "Shortcut{12}" "{10}</p>{7}</p>{8}</p>{9}</p>{5}" "AMIPRO2.INI"
0 3 "Se han guardado las teclas r<\a>pidas."
16 GenerateMenu
6 3
15
9
14 ClearMenu
0 2 "Se borrar<\a>n TODAS las opciones del men<\z>. </>Desea continuar?"
13
11 00000170
0 287 "ANSIx" "NumMenuItems" "" "AMIPRO2.INI"
16 GenerateMenu
6 3
15
9
14 Replaceit
0 24
13
8 2
6 2
7 ""
18 1
11 00000252
0 2 "</>Desea sustituir {2} por {0} SIEMPRE que aparece?"
13
11 00000218
5 1024
5 8192
3 0
8 3
0 6 "[37]"
2 488 1 0 0 "{3}" "{2}" "{0}"
10 00000239
16 InsertChar "{0}"
10 00000315
0 7 "Seleccione lo que desee sustituir por {0}."
10 00000014
6 1
15
9
14 AddtoMenu
0 42 "{0}" 9000
13
8 4
0 286 "ANSIx" "NumMenuItems" "AMIPRO2.INI"
13
8 5
6 5
5 0
18 3
6 5
7 ""
18 1
1 2
11 00000440
5 1
8 6
6 5
6 6
18 2
12 00000229
10 00000427
5 1
6 6
3 0
8 6
10 00000154
0 286 "ANSIx" "MenuItem{6}" "AMIPRO2.INI"
13
8 7
6 7
6 4
18 0
11 00000414
0 2 "Este s<\m>mbolo ya est<\a> en el men<\z>. </>Desea continuar?"
13
1 3
11 00000414
6 3
15
9
10 00000196
10 00000475
5 1
21 8 [X]
5 0
8 5
5 1
8 6
6 5
5 1
3 0
0 287 "ANSIx" "NumMenuItems" [X] "AMIPRO2.INI"
0 287 "ANSIx" "MenuItem{6}" "{4}" "AMIPRO2.INI"
16 GenerateMenu
6 3
15
9
14 ExitMacro
7 "&Cars"
8 1
0 521 1 "{1}"
6 0
15
9
14 GenerateMenu
0 802
13
8 1
7 "&Cars"
8 2
0 286 "ANSIx" "NumShortcuts" "AMIPRO2.INI"
13
8 3
6 3
5 0
18 3
6 3
7 ""
18 1
1 2
11 00000642
5 1
8 4
6 3
6 4
18 2
12 00000238
10 00000642
5 1
6 4
3 0
8 4
10 00000163
0 286 "ANSIx" "Shortcut{4}" "AMIPRO2.INI"
13
8 5
0 20 "{5}" 1 "</p>"
13
8 6
0 40 "{6}"
13
8 6
0 20 "{5}" 2 "</p>"
13
8 7
0 20 "{5}" 3 "</p>"
13
8 8
0 20 "{5}" 4 "</p>"
13
8 9
0 20 "{5}" 5 "</p>"
13
8 10
6 7
11 00000505
6 6
5 16384
25 2
8 6
6 8
11 00000547
6 6
5 8192
25 2
8 6
6 9
11 00000589
6 6
5 4096
25 2
8 6
2 422 1 "{6}" 0 "{1}!InsertChar({10})"
10 00000205
0 521 1 "{2}"
0 515 1 "{2}"
0 516 1 "{2}" "&Seleccionar" "{1}!ShowBox()" "Muestra un recuadro de di<\a>logo para insertar caracteres ANSI."
0 516 1 "{2}" "S&alir de {2}" "{1}!ExitMacro()" "Suprime el men<\z> {2}."
0 286 "ANSIx" "NumMenuItems" "AMIPRO2.INI"
13
8 11
6 11
7 ""
18 0
6 11
5 0
18 0
1 2
11 00000979
6 0
15
9
0 516 1 "{2}" "-" ""
6 11
21 12 [X]
5 1
8 4
6 11
6 4
18 2
12 00001104
10 00001276
5 1
6 4
3 0
8 4
10 00001028
0 286 "ANSIx" "MenuItem{4}" "AMIPRO2.INI"
13
8 13
0 516 1 "{2}" "&{4}    {13}" "{1}!InsertChar({13})" "Inserta el car<\a>cter {13} en la posici<\s>n actual."
10 00001071
6 0
15
9
14 InsertChar
0 6 "{0}"
6 1
15
9
14 ClearShortcuts
0 2 "Se suprimir<\a>n TODAS las teclas r<\a>pidas asignadas a caracteres ANSI. </>Desea continuar?"
13
11 00000688
0 286 "ANSIx" "NumShortcuts" "AMIPRO2.INI"
13
8 4
5 1
8 5
6 4
6 5
18 2
12 00000276
10 00000641
5 1
6 5
3 0
8 5
10 00000201
0 286 "ANSIx" "Shortcut{5}" "AMIPRO2.INI"
13
8 6
0 20 "{6}" 1 "</p>"
13
8 7
0 20 "{6}" 2 "</p>"
13
8 8
0 20 "{6}" 3 "</p>"
13
8 9
0 20 "{6}" 4 "</p>"
13
8 10
0 20 "{6}" 5 "</p>"
13
8 11
6 8
11 00000523
6 7
5 16384
25 2
8 7
6 9
11 00000565
6 7
5 8192
25 2
8 7
6 10
11 00000608
6 7
5 4096
25 2
8 7
2 422 1 "{7}" 0 ""
10 00000243
0 287 "ANSIx" "NumShortcuts" "" "AMIPRO2.INI"
6 3
15
9
DIALOG ANSIBox
-2134376448 8 134 38 94 176 "" "" "Caracteres ANSI"
FONT 8 "Helv"
4 4 22 166 9000 1352859651 "listbox" "" 0
50 4 40 14 1 1342373889 "button" "Aceptar" 0
50 20 40 14 2 1342373888 "button" "Cancelar" 0
50 36 40 14 53 1342373888 "button" "&Insertar" 0
30 56 60 14 54 1342373888 "button" "&A±adir al men·" 0
30 72 60 14 55 1342373888 "button" "&Borrar del men·" 0
30 88 60 14 6 1342373888 "button" "&Sustituir" 0
30 104 60 14 57 1342373888 "button" "&Teclas rßpidas..." 0
DIALOG ShortcutBox
-2134376448 10 118 62 171 68 "" "" "Asignaci≤n de teclas rßpidas"
FONT 6 "Helv"
4 1 46 52 10 1342242823 "button" "Base" 0
10 10 28 12 50 1342242819 "button" "&Ctrl" 0
10 22 30 12 51 1342242819 "button" "&Alt" 0
10 34 36 12 52 1342242819 "button" "&May·s" 0
58 17 20 8 1000 1342177280 "static" "Tecla:" 0
82 16 30 12 8000 1350631552 "edit" "" 0
124 4 40 14 1 1342242817 "button" "Aceptar" 0
124 20 40 14 2 1342242816 "button" "Cancelar" 0
124 36 40 14 53 1342242816 "button" "&Eliminar" 0
4 56 152 8 8001 1342177281 "static" "text" 0
00017138